<% 'パラメータを取得します。 myfolder = Request.QueryString("dirname") dirname = Server.Mappath(".") dirname = dirname & "\pictures\" & myfolder & "\" '配列関数の定義 Function array_a(value) length = Len (value) - 1 trim_s = Right(value,length) array_a = Split(trim_s,":") End Function Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") Set ObjFolder = ObjFSO.GetFolder(dirname) 'ファイル名とファイル数の取得 Set ColFiles = ObjFolder.Files FileNum = ColFiles.Count 'ファイルを配列にぶち込む For Each f in ColFiles If f.Name <> "disp.asp" Then images = images & ":" & f.Name End If Next imagesarray = array_a(images) 'イメージの表示 'For i = 0 to (FileNum - 2) 'If FileNum = PageNum Then 'End If Lim = CInt(FileNum - 1) next_p = "" & vbcr before_p = "" & vbcr If i = 0 Then before_p = "" End If If i = Lim Then next_p = "" End If Response.Write before_p Response.Write "" & vbcr Response.Write next_p 'Next Response.Write "" & vbcr Response.Write "" & vbcr Response.Write "" & vbcr Response.Write "" & vbcr Response.Write "" & vbcr Response.Write "" & vbcr 'オブジェクトを解放します。 Set ColFiles = Nothing Set ObjFolder = Nothing Set ObjFSO = Nothing %>

" Response.Write "	" & vbcr Response.Write i + 1 & "/" & FileNum & vbcr Response.Write "	" Response.Write "